home *** CD-ROM | disk | FTP | other *** search
/ Power Programmierung 2 / Power-Programmierung CD 2 (Tewi)(1994).iso / c / library / dos / diverses / cexpress / graphic / clrpage.asm < prev    next >
Encoding:
Assembly Source File  |  1989-05-03  |  830 b   |  33 lines
  1. ;void  clear_page(page_number,color);
  2. ;  unsigned char  page_number,color;
  3.  
  4.     EXTRN  _memory_model:byte
  5.  
  6. _TEXT    SEGMENT  BYTE PUBLIC 'CODE'
  7.     ASSUME CS:_TEXT
  8.     PUBLIC _clear_page
  9. _clear_page proc near
  10.     push bp            ;save BP
  11.     mov  bp,sp        ;set stack frame
  12.     cmp  _memory_model,0    ;near or far?
  13.     jle  begin        ;jump if near
  14.     inc  bp            ;else add 2 to BP
  15.     inc  bp            ;
  16. begin:    mov  bh,[bp+4]        ;page number to BH
  17.     mov  ah,2        ;BIOS func to set cursor
  18.     sub  dx,dx        ;row and column are 0,0
  19.     int  10h        ;set the cursor
  20.     mov  ah,9        ;BIOS write function
  21.     mov  al,32        ;clear with space char
  22.     mov  bl,[bp+6]        ;attribute to BL
  23.     mov  cx,2000        ;chars to write
  24.     int  10h        ;clear the page
  25.     pop  bp            ;restore BP
  26.     cmp  _memory_model,0    ;quit
  27.     jle  quit        ;
  28.     db   0CBh        ;RET far
  29. quit:    ret            ;RET near
  30. _clear_page endp
  31. _TEXT    ENDS
  32.     END
  33.